1 @echo off 2 set scrn=on 3 if not x%menu%==x goto MAINMENU 4 goto more1 5 rem REPLY.COM SETS THE CORRESPONDING DECIMAL VALUE OF THE ASCII 6 rem KEY PRESSED INTO THE DOS ERRORLEVEL REGISTER ----- 7 rem F1=59, F2=-60, F3=-61, F4=-62, F5=-63, y=121, Y=89, N=78, n=110, ESCP=27! 8 :PAGEDOWN 9 if %menu%==1 goto more2 10 if %menu%==2 goto more3 11 goto more1 12 :PAGEUP 13 if %menu%==1 goto more3 14 if %menu%==2 goto more1 15 goto more2 16 :more1 17 set menu=1 18 goto mainmenu 19 :more2 20 set menu=2 21 goto mainmenu 22 :more3 23 set menu=3 24 :mainmenu 25 c: 26 REM CD \ ----- REINSTATE THIS LINE TO USE SYSTEM IN ROOT DIR 27 CURSOFF 28 if %scrn%==on goto scn 29 GOTO %menu% 30 :1 31 echo [1;%6;%7m 32 echo  WORD PROCESSOR 33 echo  POWER MENU 34 echo  NETWORK LOGIN 35 echo  FORM TOOL 36 echo  HIJAAK 37 echo  BUSINESS SYSTEM 38 echo  PAINT BRUSH 39 echo  40 echo 1/3 41 GOTO ENDSCR 42 :2 43 echo [1;%6;%7m 44 echo  SCREEN PAINTER 45 echo  WINDOWS 46 echo  SOLITAIRE 47 echo  BASIC 48 echo  MODIFIED BACKUP 49 echo  NORTON UTILITIES 50 echo  GAMES MENU 51 echo  52 echo 2/3 53 GOTO ENDSCR 54 :3 55 echo [1;%6;%7m 56 echo  AUTOCAD 57 echo  XTREE 58 echo  ACCOUNTING 59 echo  SET BACKUP DATE 60 echo  TAPE BACKUP 61 echo  ZIP PROGRAM 62 echo  DISK LABELS 63 echo  64 echo 3/3 65 :ENDSCR 66 echo  67 CURSON 68 :REENTER 69 BATMOUSE 70 if not %vc%==- goto mouse 71 if errorlevel 72 if not errorlevel 73 goto help 72 if errorlevel 104 if not errorlevel 105 goto help 73 if errorlevel 68 if not errorlevel 69 goto pagedown 74 if errorlevel 81 if not errorlevel 82 goto f9 75 if errorlevel 27 if not errorlevel 28 goto F9 76 if errorlevel 67 if not errorlevel 68 goto F9 77 if errorlevel 113 if not errorlevel 114 goto F9 78 set scrn=on 79 if errorlevel 66 if not errorlevel 67 goto F8%menu% 80 if errorlevel 65 if not errorlevel 66 goto F7%menu% 81 if errorlevel 64 if not errorlevel 65 goto F6%menu% 82 if errorlevel 63 if not errorlevel 64 goto F5%menu% 83 if errorlevel 62 if not errorlevel 63 goto F4%menu% 84 if errorlevel 61 if not errorlevel 62 goto F3%menu% 85 if errorlevel 60 if not errorlevel 61 goto F2%menu% 86 if errorlevel 59 if not errorlevel 60 goto F1%menu% 87 set scrn=off 88 goto badkey 89 :mouse 90 if %hr%==1 goto pageup 91 if %hr%==25 goto pagedown 92 if %hr%==2 goto pageup 93 if %hr%==24 goto pagedown 94 if %hr%==3 goto pageup 95 if %hr%==23 goto pagedown 96 if %hr%==21 if %vc%==62 goto HELP 97 if %hr%==22 if %vc%==62 goto F9 98 if %hr%==22 if %vc%==63 goto F9 99 if %vc%==31 goto callprog 100 if %vc%==32 goto callprog 101 if %vc%==33 goto callprog 102 if %vc%==34 goto callprog 103 if %vc%==35 goto callprog 104 if %vc%==36 goto callprog 105 if %vc%==37 goto callprog 106 if %vc%==38 goto callprog 107 if %vc%==39 goto callprog 108 if %vc%==40 goto callprog 109 if %vc%==41 goto callprog 110 if %vc%==42 goto callprog 111 if %vc%==43 goto callprog 112 if %vc%==44 goto callprog 113 if %vc%==45 goto callprog 114 goto badkey 115 :callprog 116 set scrn=on 117 if %hr%==7 goto F1%menu% 118 if %hr%==9 goto F2%menu% 119 if %hr%==11 goto F3%menu% 120 if %hr%==13 goto F4%menu% 121 if %hr%==15 goto F5%menu% 122 if %hr%==17 goto F6%menu% 123 if %hr%==19 goto F7%menu% 124 if %hr%==21 goto F8%menu% 125 :badkey 126 echo  127 set scrn=off 128 goto REENTER 129 :F11 130 WS2 131 goto MAINMENU 132 :F21 133 SET PROGTODO=PWR 134 goto END 135 :F31 136 SET PROGTODO=LI 137 goto END 138 :F41 139 SET PROGTODO=FORM 140 goto END 141 :F51 142 SET PROGTODO=HIJ 143 GOTO END 144 :F61 145 SET PROGTODO=FOTO 146 GOTO END 147 :F71 148 SET PROGTODO=PB 149 GOTO END 150 :F81 151 goto MAINMENU 152 :F12 153 SET PROGTODO=SAY 154 GOTO END 155 :F22 156 cd \windows 157 win 158 goto MAINMENU 159 :F32 160 SET PROGTODO=cards 161 GOTO END 162 :F42 163 SET PROGTODO=MORT 164 GOTO END 165 :F52 166 SET PROGTODO=BACKEMUP 167 GOTO END 168 :F62 169 CALL norton 170 goto MAINMENU 171 :F72 172 cd \GAMES 173 call GAMESMNU 174 GOTO MAINMENU 175 :F82 176 goto MAINMENU 177 :F13 178 SET PROGTODO=ACAD 179 GOTO END 180 :F23 181 \MISC\XTREE 182 goto MAINMENU 183 :F33 184 SET PROGTODO=QB 185 GOTO END 186 :F43 187 c:\tnc\db3\chngbkup 188 goto MAINMENU 189 :F53 190 CALL \tapesyst 191 goto MAINMENU 192 :F63 193 CD \PKMENU 194 CALL PKZMENU 195 CD \ 196 goto MAINMENU 197 :F73 198 CD \DSKLIST 199 CALL DISKLIST 200 CD \ 201 goto MAINMENU 202 :F83 203 goto MAINMENU 204 :HELP 205 SHOW HELP 206 BATMOUSE 207 :SCN 208 set scrn=off 209 echo  210 echo  211 SHOW DIRSCN%1 212 echo [1;%2;%3m 213 echo °°°°°°°°°°°°°°°°°°°°° P E R S O N A L D I R E C T O R °°°°°°°°°°°°°°°°°°°°°°° 214 echo [1;%4;%5m 215 echo  F1 216 echo  F2 217 echo  F3 218 echo  F4 219 echo  F5 220 echo  F6 221 echo  F7 222 echo  F8 223 echo  H - HELP 224 echo  F9 - EXIT TO DOS 225 echo  F10 - PAGE DOWN 226 GOTO %MENU% 227 :F9 228 SET PROGTODO=CLS 229 :END 230 %PROGTODO%